home *** CD-ROM | disk | FTP | other *** search
/ How Many Bugs in a Box / How Many Bugs in a Box.cdr / bugs / act8 / 00246.ls < prev    next >
Encoding:
Text File  |  1995-03-28  |  492 b   |  23 lines
  1. on mouseUp
  2.   global doofus, instruct8, ogre, hathorig, hatvorig
  3.   puppetSprite(1, 0)
  4.   set the locH of sprite 27 to hathorig
  5.   set the locV of sprite 27 to hatvorig
  6.   puppetSprite(27, 0)
  7.   set instruct8 to 2
  8.   sound stop 1
  9.   sound stop 2
  10.   puppetSound(0)
  11.   set the mouseout of ogre to 1
  12.   repeat with xxx = 1 to 5
  13.     setscript("narr" & xxx)
  14.     sayit(ogre)
  15.     if the mouseDown then
  16.       exit repeat
  17.     end if
  18.   end repeat
  19.   set the mouseout of ogre to 0
  20.   puppetSound(0)
  21.   go(doofus)
  22. end
  23.